From: Kenichi Handa <handa@m17n.org>
Date: Wed, 6 Nov 2002 01:07:34 +0000 (+0000)
Subject: (coding-system-eol-type-mnemonic): Use
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~29890
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9ecee7d4ff1edf3d2974dd2485334d0bc09fa50f;p=emacs.git

(coding-system-eol-type-mnemonic): Use
eol-mnemonic-undecided if CODING-SYSTEM is nil.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index f325c60b80e..4e45baf0741 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -516,11 +516,10 @@ coding system whose eol-type is N."
 (defun coding-system-eol-type-mnemonic (coding-system)
   "Return the string indicating end-of-line format of CODING-SYSTEM."
   (let* ((eol-type (coding-system-eol-type coding-system))
-	 (val (cond ((vectorp eol-type) eol-mnemonic-undecided)
-		    ((eq eol-type 0) eol-mnemonic-unix)
+	 (val (cond ((eq eol-type 0) eol-mnemonic-unix)
 		    ((eq eol-type 1) eol-mnemonic-dos)
 		    ((eq eol-type 2) eol-mnemonic-mac)
-		    (t "-"))))
+		    (t eol-mnemonic-undecided))))
     (if (stringp val)
 	val
       (char-to-string val))))